home *** CD-ROM | disk | FTP | other *** search
/ Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit) / Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin / Ubi_soft.exe / Intro2.dxr / Internal_77_cd 1 Educate.ls < prev    next >
Encoding:
Text File  |  1999-08-18  |  874 b   |  34 lines
  1. global language, cdnum
  2.  
  3. on mouseUp
  4.   unLoad()
  5.   puppetSound("pagesend")
  6.   if cdnum = 2 then
  7.     identifier = string(10 + language)
  8.     contents = 0
  9.     transfer = 1
  10.     myFile = new(xtra("fileio"))
  11.     fileName = "c:\CDnum.dat"
  12.     createFile(myFile, fileName)
  13.     openFile(myFile, fileName, 2)
  14.     writeString(myFile, identifier)
  15.     closeFile(myFile)
  16.     myFile = 0
  17.     Mui = new(xtra("mui"))
  18.     response = alert(Mui, [#buttons: #YesNo, #default: 1, #title: "CD 1 Game", #message: "This  game is on CD# 1, Do you wish to quit CD# 2", #icon: #question])
  19.     if response = 1 then
  20.       go("next CD")
  21.     else
  22.       myFile = new(xtra("fileio"))
  23.       openFile(myFile, fileName, 2)
  24.       delete(myFile)
  25.     end if
  26.   else
  27.     myFile = new(xtra("fileio"))
  28.     fileName = "c:\CDnum.dat"
  29.     openFile(myFile, fileName, 2)
  30.     delete(myFile)
  31.     play movie "Educate"
  32.   end if
  33. end
  34.